home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / v cisle / pcwkillall / pcwKillEmAll.exe / pcwKillEmAll.hta
Text File  |  2006-09-18  |  3KB  |  79 lines
  1. <HTML>
  2.  <HEAD>
  3.   <TITLE>Skript PC WORLDu: Kill 'em All</TITLE>
  4.   <HTA:APPLICATION ID="hta3" 
  5.    APPLICATIONNAME="KillEmAll" 
  6.    BORDER = "normal"
  7.    CAPTION = "yes"
  8.    SHOWINTASKBAR = "yes"
  9.    SINGLEINSTANCE = "yes"
  10.    SYSMENU = "yes"
  11.    WINDOWSTATE = "normal"
  12.    SCROLL = "no"
  13.    SCROLLFLAT = "no"
  14.    VERSION = "1.0"
  15.    INNERBORDER = "no"
  16.    SELECTION = "no"
  17.    MAXIMIZEBUTTON = "no"
  18.    MINIMIZEBUTTON = "yes"
  19.    NAVIGABLE = "No"
  20.    CONTEXTMENU = "no"
  21.    BORDERSTYLE = "normal">
  22.    
  23.    <STYLE type="text/css">
  24.    
  25. body {    scrollbar-arrow-color: #000000;
  26.         font-family:Verdana;
  27.         font-style:normal;
  28.         font-size:12;
  29.         background-color:Buttonface}
  30.  
  31. .fading    {font-size:14px;
  32.         background-color:#003159;
  33.         color:white;width:320;
  34.         filter:Alpha(style=1, opacity=90, startx=83, finishx=86)
  35.         }
  36. .button    {
  37.         width:320px;
  38.         }
  39.  
  40.    </STYLE>
  41.    <SCRIPT LANGUAGE=vbscript>
  42.  
  43. '|--------------------------------------------------------------------------------------------------|'
  44.  
  45. Dim Tool
  46. Set myshell = CreateObject("Wscript.Shell")
  47. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  48.  
  49. '|--------------------------------------------------------------------------------------------------|'
  50.  
  51. Sub SubInitFenster
  52.     window.resizeTo 350, 360
  53. End Sub
  54. '|--------------------------------------------------------------------------------------------------|'
  55. Function SubRun(Tool)
  56.     ord = MyFiles.Getfolder(".")
  57.     ret = myshell.Run(chr(34) & ord & "\Tools\" & Tool & chr(34), 1, false)
  58. End function
  59.  
  60. '|--------------------------------------------------------------------------------------------------|'
  61. Sub SubQuit
  62. Set myshell = Nothing
  63. Set myfiles = Nothing
  64. Window.Close
  65. End Sub
  66.  
  67. '|--------------------------------------------------------------------------------------------------|'
  68. </SCRIPT>
  69.   </HEAD>
  70.    <BODY onload="SubInitFenster" scroll="no">
  71.    <INPUT Type=button class=button value="Odstranit Windows Media Player" name=killwmp size="20" onClick="Subrun('pcwKillMediaPlayer.vbs')"></br></br>
  72.    <INPUT Type=button class=button value="Odstranit Outlook Express" name=killoex size=102 onClick="Subrun('pcwKillOutlookExpress.vbs')"></br></br>
  73.    <INPUT Type=button class=button value="Odstranit Movie Maker" name=killmma size=102 onClick="Subrun('pcwKillMovieMaker.vbs')"></br></br>
  74.    <INPUT Type=button class=button value="Odstranit Messenger" name=killmes size=102 onClick="Subrun('pcwKillMessenger.bat')"></br></br>
  75.    <INPUT Type=button class=button value="Odstranit Netmeeting" name=killnet size=102 onClick="Subrun('pcwKillNetmeeting.bat')"></br></br>
  76.    <INPUT Type=button class=button value="Odstranit slo₧ky pro odinstalovßnφ zßplat" name=killuni size=102 onClick="Subrun('pcwKillUninstall.hta')"></br></br>
  77.    <INPUT Type=button class=button value="Konec" name=htaquit  size=102 onClick="SubQuit">
  78.  </BODY>
  79. </HTML>